calculate_metrics Subroutine

public subroutine calculate_metrics(pa, ptet)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	pa
real(kind=wp),	intent(in)			::	ptet